home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
New Star Software Collection
/
NSS_Collection.iso
/
3-004 ms visual basic pro 30
/
4.imz
/
4.IMA
/
FORMCHI.FR_
/
FORMCHI.bin
Wrap
Text File
|
1993-04-28
|
3KB
|
104 lines
VERSION 2.00
Begin Form Form2
BorderStyle = 1 'Fixed Single
Caption = "Address Book"
ClientHeight = 2805
ClientLeft = 1845
ClientTop = 2460
ClientWidth = 4245
Height = 3495
Left = 1785
LinkTopic = "Form2"
MDIChild = -1 'True
ScaleHeight = 2805
ScaleWidth = 4245
Top = 1830
Width = 4365
Begin TextBox txtName
Height = 615
Left = 1320
LinkItem = "c"
TabIndex = 2
Top = 240
Width = 2415
End
Begin TextBox Text2
Height = 615
Left = 1320
TabIndex = 1
Text = "(206) - 555 6729"
Top = 1680
Width = 2415
End
Begin TextBox Text1
Height = 615
Left = 1320
MultiLine = -1 'True
TabIndex = 0
Text = "4000 148 Ave NE Bellevue, WA 98007"
Top = 960
Width = 2415
End
Begin Image Image3
Height = 615
Left = 480
Picture = FORMCHI.FRX:0000
Stretch = -1 'True
Top = 240
Width = 720
End
Begin Image Image2
Height = 615
Left = 480
Picture = FORMCHI.FRX:0182
Stretch = -1 'True
Top = 960
Width = 735
End
Begin Image Image1
Height = 615
Left = 480
Picture = FORMCHI.FRX:0304
Stretch = -1 'True
Top = 1680
Width = 735
End
Begin Menu mnuFile
Caption = "&File"
Begin Menu mnuFileNew
Caption = "&New"
End
Begin Menu mnuFileOpen
Caption = "&Open..."
End
Begin Menu mnuDash
Caption = "-"
End
Begin Menu mnuFileExit
Caption = "E&xit"
End
End
Begin Menu mnuWindow
Caption = "&Window"
Begin Menu mnuWindowTile
Caption = "&Tile"
End
Begin Menu mnuWindowCascade
Caption = "&Cascade"
End
End
End
Sub Form_Load ()
Height = 3705
Width = 4290
End Sub
Sub mnuFileOpen_Click ()
filename$ = "Addrss.txt"
Open filename$ For Input As #1
End Sub